Digital Competence Insights
  • Dimensions
    • Strategic Information
    • Critical Information
    • Netiquette
    • Digital Content Creation
    • Safety
    • Digital Health
    • Green Digital
    • Digital Problem Solving
    • Transactional
    • AI
    • Gen AI
  • Skills
  • Performance
  • Knowledge
  • Highlights
  • About

Performance

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

The Performance section measures participants’ practical digital skills across a range of real-life tasks. Instead of self-reports, these items test what people can actually do: for example, searching for reliable information, recognizing AI-generated images, protecting their devices, or using AI tools effectively. The items cover ten areas of digital competence, from strategic and critical information skills to AI and generative AI skills, providing an overall picture of how well individuals can navigate today’s digital environment.

Loading

Digital Content Creation: Performance Questions

Information literacy scores were highest at 85%. Participants excelled at search strategies and source evaluation.

Safety

Safety & Control of Information and Devices encompasses protecting devices and personal information: using security measures, managing privacy settings, identifying phishing, and controlling what information is shared online.

Which of the following safety precautions do you sometimes take for your digital/online media use?

See all Safety results

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • item10

Digital Health

Digital Health & Wellbeing skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing.

Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.

See all Digital Health results

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8

Green Digital

Sustainable/Green Digital Skills focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.

See all Green Digital results

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9

Digital Problem Solving

Digital Problem Solving measures the ability to find help and solutions for digital challenges: knowing where to get help to improve digital skills and who to turn to when facing technical difficulties.

Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.

See all Digital Problem Solving results

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • Question 8
  • item9
/ 3
Back to top
Source Code
---
title: "{{< iconify ph clipboard-text >}} Performance"
format: html
---

```{r}
#| include: false
library(dashboardr)
```

**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**

The **Performance** section measures participants' practical digital skills across a range of real-life tasks. Instead of self-reports, these items test what people *can actually do*: for example, searching for reliable information, recognizing AI-generated images, protecting their devices, or using AI tools effectively. The items cover ten areas of digital competence, from strategic and critical information skills to AI and generative AI skills, providing an overall picture of how well individuals can navigate today's digital environment.

```{r, echo=FALSE}
dashboardr::enable_modals()
```

```{r setup}
#| echo: false
#| warning: false
#| message: false
#| error: false
#| results: 'hide'

# Load required libraries
library(dashboardr)
library(dplyr)
library(highcharter)

# Global chunk options
knitr::opts_chunk$set(
  echo = FALSE,
  warning = FALSE,
  message = FALSE,
  error = FALSE,
  fig.width = 12,
  fig.height = 8,
  dpi = 300
)

# Load data from dataset_4014obs.rds
data <- readRDS('dataset_4014obs.rds')

# Data summary
cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')

# Create filtered datasets
# Each filter is applied once and reused across visualizations

data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)
data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)

```


```{r, echo=FALSE, message=FALSE, warning=FALSE, results='asis'}
# Use dashboardr's loading overlay function
dashboardr::add_loading_overlay("Loading", 1, theme = "light")
```


```{r, echo=FALSE, results='asis'}
cat(as.character(dashboardr::modal_content(
  modal_id = 'PDCCS1R',
  text = '<h2>Digital Content Creation: Performance Questions</h2>
<img src="https://placehold.co/600x400/EEE/31343C" style="max-width:100%; height:auto;">
<p>Information literacy scores were highest at 85%.
                     Participants excelled at search strategies and
                     source evaluation.</p>'
)))
```

## {{< iconify ph shield-check-fill >}} Safety


**Safety & Control of Information and Devices** encompasses protecting devices and personal information: using security measures, managing privacy settings, identifying phishing, and controlling what information is shared online.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("Which of the following safety precautions do you sometimes take for your digital/online media use?", preset = "question")
```
[{{< iconify ph cards >}} See all Safety results](safety.html)


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-safety-wave1-overall}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PSCS3_1, PSCS3_2, PSCS3_3, PSCS3_4, PSCS3_5, PSCS3_6, PSCS3_7, PSCS3_8, PSCS3_9, PSCS3_10),
  title = "",
  questions = c("PSCS3_1", "PSCS3_2", "PSCS3_3", "PSCS3_4", "PSCS3_5", "PSCS3_6", "PSCS3_7", "PSCS3_8", "PSCS3_9", "PSCS3_10"),
  question_labels = c("Keep passwords in a password safe", "Save passwords on paper (rev)", "Use passwords with ≥14 chars", "Different passwords per account", "Use passkey (finger/face)", "Two-step verification", "Install software updates", "Use adblocker", "Make backups", "None of the above"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-wave1-age-item1}
# Keep passwords in a password safe
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_1),
  title = "Keep passwords in a password safe",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-wave1-age-item2}
# Save passwords on paper (rev)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_2),
  title = "Save passwords on paper (rev)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-wave1-age-item3}
# Use passwords with ≥14 chars
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_3),
  title = "Use passwords with ≥14 chars",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-wave1-age-item4}
# Different passwords per account
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_4),
  title = "Different passwords per account",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-wave1-age-item5}
# Use passkey (finger/face)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_5),
  title = "Use passkey (finger/face)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-wave1-age-item6}
# Two-step verification
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_6),
  title = "Two-step verification",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-wave1-age-item7}
# Install software updates
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_7),
  title = "Install software updates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-wave1-age-item8}
# Use adblocker
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_8),
  title = "Use adblocker",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_8"
)

result
```


###### item9


```{r perf-safety-wave1-age-item9}
# Make backups
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_9),
  title = "Make backups",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_9"
)

result
```


###### item10


```{r perf-safety-wave1-age-item10}
# None of the above
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSCS3_10),
  title = "None of the above",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_10"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-wave1-gender-item1}
# Keep passwords in a password safe
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_1),
  title = "Keep passwords in a password safe",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-wave1-gender-item2}
# Save passwords on paper (rev)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_2),
  title = "Save passwords on paper (rev)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-wave1-gender-item3}
# Use passwords with ≥14 chars
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_3),
  title = "Use passwords with ≥14 chars",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-wave1-gender-item4}
# Different passwords per account
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_4),
  title = "Different passwords per account",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-wave1-gender-item5}
# Use passkey (finger/face)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_5),
  title = "Use passkey (finger/face)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-wave1-gender-item6}
# Two-step verification
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_6),
  title = "Two-step verification",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-wave1-gender-item7}
# Install software updates
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_7),
  title = "Install software updates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-wave1-gender-item8}
# Use adblocker
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_8),
  title = "Use adblocker",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_8"
)

result
```


###### item9


```{r perf-safety-wave1-gender-item9}
# Make backups
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_9),
  title = "Make backups",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_9"
)

result
```


###### item10


```{r perf-safety-wave1-gender-item10}
# None of the above
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSCS3_10),
  title = "None of the above",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_10"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-wave1-edu-item1}
# Keep passwords in a password safe
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_1),
  title = "Keep passwords in a password safe",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-wave1-edu-item2}
# Save passwords on paper (rev)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_2),
  title = "Save passwords on paper (rev)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-wave1-edu-item3}
# Use passwords with ≥14 chars
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_3),
  title = "Use passwords with ≥14 chars",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-wave1-edu-item4}
# Different passwords per account
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_4),
  title = "Different passwords per account",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-wave1-edu-item5}
# Use passkey (finger/face)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_5),
  title = "Use passkey (finger/face)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-wave1-edu-item6}
# Two-step verification
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_6),
  title = "Two-step verification",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-wave1-edu-item7}
# Install software updates
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_7),
  title = "Install software updates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-wave1-edu-item8}
# Use adblocker
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_8),
  title = "Use adblocker",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_8"
)

result
```


###### item9


```{r perf-safety-wave1-edu-item9}
# Make backups
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_9),
  title = "Make backups",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_9"
)

result
```


###### item10


```{r perf-safety-wave1-edu-item10}
# None of the above
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSCS3_10),
  title = "None of the above",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_10"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-safety-wave2-overall}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PSCS3_1, PSCS3_2, PSCS3_3, PSCS3_4, PSCS3_5, PSCS3_6, PSCS3_7, PSCS3_8, PSCS3_9, PSCS3_10),
  title = "",
  questions = c("PSCS3_1", "PSCS3_2", "PSCS3_3", "PSCS3_4", "PSCS3_5", "PSCS3_6", "PSCS3_7", "PSCS3_8", "PSCS3_9", "PSCS3_10"),
  question_labels = c("Keep passwords in a password safe", "Save passwords on paper (rev)", "Use passwords with ≥14 chars", "Different passwords per account", "Use passkey (finger/face)", "Two-step verification", "Install software updates", "Use adblocker", "Make backups", "None of the above"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-wave2-age-item1}
# Keep passwords in a password safe
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_1),
  title = "Keep passwords in a password safe",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-wave2-age-item2}
# Save passwords on paper (rev)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_2),
  title = "Save passwords on paper (rev)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-wave2-age-item3}
# Use passwords with ≥14 chars
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_3),
  title = "Use passwords with ≥14 chars",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-wave2-age-item4}
# Different passwords per account
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_4),
  title = "Different passwords per account",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-wave2-age-item5}
# Use passkey (finger/face)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_5),
  title = "Use passkey (finger/face)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-wave2-age-item6}
# Two-step verification
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_6),
  title = "Two-step verification",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-wave2-age-item7}
# Install software updates
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_7),
  title = "Install software updates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-wave2-age-item8}
# Use adblocker
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_8),
  title = "Use adblocker",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_8"
)

result
```


###### item9


```{r perf-safety-wave2-age-item9}
# Make backups
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_9),
  title = "Make backups",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_9"
)

result
```


###### item10


```{r perf-safety-wave2-age-item10}
# None of the above
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSCS3_10),
  title = "None of the above",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSCS3_10"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-wave2-gender-item1}
# Keep passwords in a password safe
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_1),
  title = "Keep passwords in a password safe",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-wave2-gender-item2}
# Save passwords on paper (rev)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_2),
  title = "Save passwords on paper (rev)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-wave2-gender-item3}
# Use passwords with ≥14 chars
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_3),
  title = "Use passwords with ≥14 chars",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-wave2-gender-item4}
# Different passwords per account
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_4),
  title = "Different passwords per account",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-wave2-gender-item5}
# Use passkey (finger/face)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_5),
  title = "Use passkey (finger/face)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-wave2-gender-item6}
# Two-step verification
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_6),
  title = "Two-step verification",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-wave2-gender-item7}
# Install software updates
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_7),
  title = "Install software updates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-wave2-gender-item8}
# Use adblocker
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_8),
  title = "Use adblocker",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_8"
)

result
```


###### item9


```{r perf-safety-wave2-gender-item9}
# Make backups
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_9),
  title = "Make backups",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_9"
)

result
```


###### item10


```{r perf-safety-wave2-gender-item10}
# None of the above
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSCS3_10),
  title = "None of the above",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSCS3_10"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-wave2-edu-item1}
# Keep passwords in a password safe
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_1),
  title = "Keep passwords in a password safe",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-wave2-edu-item2}
# Save passwords on paper (rev)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_2),
  title = "Save passwords on paper (rev)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-wave2-edu-item3}
# Use passwords with ≥14 chars
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_3),
  title = "Use passwords with ≥14 chars",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-wave2-edu-item4}
# Different passwords per account
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_4),
  title = "Different passwords per account",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-wave2-edu-item5}
# Use passkey (finger/face)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_5),
  title = "Use passkey (finger/face)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-wave2-edu-item6}
# Two-step verification
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_6),
  title = "Two-step verification",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-wave2-edu-item7}
# Install software updates
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_7),
  title = "Install software updates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-wave2-edu-item8}
# Use adblocker
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_8),
  title = "Use adblocker",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_8"
)

result
```


###### item9


```{r perf-safety-wave2-edu-item9}
# Make backups
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_9),
  title = "Make backups",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_9"
)

result
```


###### item10


```{r perf-safety-wave2-edu-item10}
# None of the above
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSCS3_10),
  title = "None of the above",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSCS3_10"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-overtime-overall-item1}
# Keep passwords in a password safe
result <- create_timeline(
  data = data,
  title = "Keep passwords in a password safe",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-overtime-overall-item2}
# Save passwords on paper (rev)
result <- create_timeline(
  data = data,
  title = "Save passwords on paper (rev)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-overtime-overall-item3}
# Use passwords with ≥14 chars
result <- create_timeline(
  data = data,
  title = "Use passwords with ≥14 chars",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-overtime-overall-item4}
# Different passwords per account
result <- create_timeline(
  data = data,
  title = "Different passwords per account",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-overtime-overall-item5}
# Use passkey (finger/face)
result <- create_timeline(
  data = data,
  title = "Use passkey (finger/face)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-overtime-overall-item6}
# Two-step verification
result <- create_timeline(
  data = data,
  title = "Two-step verification",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-overtime-overall-item7}
# Install software updates
result <- create_timeline(
  data = data,
  title = "Install software updates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-overtime-overall-item8}
# Use adblocker
result <- create_timeline(
  data = data,
  title = "Use adblocker",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_8"
)

result
```


###### item9


```{r perf-safety-overtime-overall-item9}
# Make backups
result <- create_timeline(
  data = data,
  title = "Make backups",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_9"
)

result
```


###### item10


```{r perf-safety-overtime-overall-item10}
# None of the above
result <- create_timeline(
  data = data,
  title = "None of the above",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSCS3_10"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-overtime-age-item1}
# Keep passwords in a password safe
result <- create_timeline(
  data = data,
  title = "Keep passwords in a password safe",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-overtime-age-item2}
# Save passwords on paper (rev)
result <- create_timeline(
  data = data,
  title = "Save passwords on paper (rev)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-overtime-age-item3}
# Use passwords with ≥14 chars
result <- create_timeline(
  data = data,
  title = "Use passwords with ≥14 chars",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_3",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-overtime-age-item4}
# Different passwords per account
result <- create_timeline(
  data = data,
  title = "Different passwords per account",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_4",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-overtime-age-item5}
# Use passkey (finger/face)
result <- create_timeline(
  data = data,
  title = "Use passkey (finger/face)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_5",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-overtime-age-item6}
# Two-step verification
result <- create_timeline(
  data = data,
  title = "Two-step verification",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_6",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-overtime-age-item7}
# Install software updates
result <- create_timeline(
  data = data,
  title = "Install software updates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_7",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-overtime-age-item8}
# Use adblocker
result <- create_timeline(
  data = data,
  title = "Use adblocker",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_8",
  group_var = "AgeGroup"
)

result
```


###### item9


```{r perf-safety-overtime-age-item9}
# Make backups
result <- create_timeline(
  data = data,
  title = "Make backups",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_9",
  group_var = "AgeGroup"
)

result
```


###### item10


```{r perf-safety-overtime-age-item10}
# None of the above
result <- create_timeline(
  data = data,
  title = "None of the above",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_10",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-overtime-gender-item1}
# Keep passwords in a password safe
result <- create_timeline(
  data = data,
  title = "Keep passwords in a password safe",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-overtime-gender-item2}
# Save passwords on paper (rev)
result <- create_timeline(
  data = data,
  title = "Save passwords on paper (rev)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-overtime-gender-item3}
# Use passwords with ≥14 chars
result <- create_timeline(
  data = data,
  title = "Use passwords with ≥14 chars",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_3",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-overtime-gender-item4}
# Different passwords per account
result <- create_timeline(
  data = data,
  title = "Different passwords per account",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_4",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-overtime-gender-item5}
# Use passkey (finger/face)
result <- create_timeline(
  data = data,
  title = "Use passkey (finger/face)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_5",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-overtime-gender-item6}
# Two-step verification
result <- create_timeline(
  data = data,
  title = "Two-step verification",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_6",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-overtime-gender-item7}
# Install software updates
result <- create_timeline(
  data = data,
  title = "Install software updates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_7",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-overtime-gender-item8}
# Use adblocker
result <- create_timeline(
  data = data,
  title = "Use adblocker",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_8",
  group_var = "geslacht"
)

result
```


###### item9


```{r perf-safety-overtime-gender-item9}
# Make backups
result <- create_timeline(
  data = data,
  title = "Make backups",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_9",
  group_var = "geslacht"
)

result
```


###### item10


```{r perf-safety-overtime-gender-item10}
# None of the above
result <- create_timeline(
  data = data,
  title = "None of the above",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_10",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-safety-overtime-edu-item1}
# Keep passwords in a password safe
result <- create_timeline(
  data = data,
  title = "Keep passwords in a password safe",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-safety-overtime-edu-item2}
# Save passwords on paper (rev)
result <- create_timeline(
  data = data,
  title = "Save passwords on paper (rev)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-safety-overtime-edu-item3}
# Use passwords with ≥14 chars
result <- create_timeline(
  data = data,
  title = "Use passwords with ≥14 chars",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_3",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-safety-overtime-edu-item4}
# Different passwords per account
result <- create_timeline(
  data = data,
  title = "Different passwords per account",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_4",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-safety-overtime-edu-item5}
# Use passkey (finger/face)
result <- create_timeline(
  data = data,
  title = "Use passkey (finger/face)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_5",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-safety-overtime-edu-item6}
# Two-step verification
result <- create_timeline(
  data = data,
  title = "Two-step verification",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_6",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-safety-overtime-edu-item7}
# Install software updates
result <- create_timeline(
  data = data,
  title = "Install software updates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_7",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-safety-overtime-edu-item8}
# Use adblocker
result <- create_timeline(
  data = data,
  title = "Use adblocker",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_8",
  group_var = "Education"
)

result
```


###### item9


```{r perf-safety-overtime-edu-item9}
# Make backups
result <- create_timeline(
  data = data,
  title = "Make backups",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_9",
  group_var = "Education"
)

result
```


###### item10


```{r perf-safety-overtime-edu-item10}
# None of the above
result <- create_timeline(
  data = data,
  title = "None of the above",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSCS3_10",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph heart-fill >}} Digital Health


**Digital Health & Wellbeing** skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.", preset = "question")
```
[{{< iconify ph cards >}} See all Digital Health results](digital_health.html)


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-health-wave1-overall}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PDHWS1_1, PDHWS1_2, PDHWS1_3, PDHWS1_4, PDHWS1_5, PDHWS1_6, PDHWS1_7, PDHWS1_8),
  title = "",
  questions = c("PDHWS1_1", "PDHWS1_2", "PDHWS1_3", "PDHWS1_4", "PDHWS1_5", "PDHWS1_6", "PDHWS1_7", "PDHWS1_8"),
  question_labels = c("Create digital detox moments", "Have rules limiting digital media", "Use screen-time limiter", "Temporarily switch off Internet", "Delete apps/programs", "Turn off notifications", "Reduce time without special approach", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave1-age-item1}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave1-age-item2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave1-age-item3}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave1-age-item4}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave1-age-item5}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave1-age-item6}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave1-age-item7}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-wave1-age-item8}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave1-gender-item1}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave1-gender-item2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave1-gender-item3}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave1-gender-item4}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave1-gender-item5}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave1-gender-item6}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave1-gender-item7}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-wave1-gender-item8}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave1-edu-item1}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave1-edu-item2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave1-edu-item3}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave1-edu-item4}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave1-edu-item5}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave1-edu-item6}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave1-edu-item7}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-wave1-edu-item8}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_8"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-health-wave2-overall}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PDHWS1_1, PDHWS1_2, PDHWS1_3, PDHWS1_4, PDHWS1_5, PDHWS1_6, PDHWS1_7, PDHWS1_8),
  title = "",
  questions = c("PDHWS1_1", "PDHWS1_2", "PDHWS1_3", "PDHWS1_4", "PDHWS1_5", "PDHWS1_6", "PDHWS1_7", "PDHWS1_8"),
  question_labels = c("Create digital detox moments", "Have rules limiting digital media", "Use screen-time limiter", "Temporarily switch off Internet", "Delete apps/programs", "Turn off notifications", "Reduce time without special approach", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave2-age-item1}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave2-age-item2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave2-age-item3}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave2-age-item4}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave2-age-item5}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave2-age-item6}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave2-age-item7}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-wave2-age-item8}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave2-gender-item1}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave2-gender-item2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave2-gender-item3}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave2-gender-item4}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave2-gender-item5}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave2-gender-item6}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave2-gender-item7}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-wave2-gender-item8}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave2-edu-item1}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave2-edu-item2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave2-edu-item3}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave2-edu-item4}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave2-edu-item5}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave2-edu-item6}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave2-edu-item7}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-wave2-edu-item8}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_8"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-overall-item1}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-overall-item2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-overall-item3}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-overall-item4}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-overall-item5}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-overall-item6}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-overall-item7}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-overtime-overall-item8}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-age-item1}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-age-item2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-age-item3}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-age-item4}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-age-item5}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-age-item6}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-age-item7}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-overtime-age-item8}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-gender-item1}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-gender-item2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-gender-item3}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-gender-item4}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-gender-item5}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-gender-item6}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-gender-item7}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-overtime-gender-item8}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-edu-item1}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-edu-item2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-edu-item3}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-edu-item4}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-edu-item5}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-edu-item6}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-edu-item7}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-health-overtime-edu-item8}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph recycle-fill >}} Green Digital


**Sustainable/Green Digital Skills** focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.", preset = "question")
```
[{{< iconify ph cards >}} See all Green Digital results](green_digital.html)


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-green-wave1-overall}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9),
  title = "",
  questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"),
  question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave1-age-item1}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave1-age-item2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave1-age-item3}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave1-age-item4}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave1-age-item5}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave1-age-item6}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave1-age-item7}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave1-age-item8}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave1-age-item9}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave1-gender-item1}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave1-gender-item2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave1-gender-item3}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave1-gender-item4}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave1-gender-item5}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave1-gender-item6}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave1-gender-item7}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave1-gender-item8}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave1-gender-item9}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave1-edu-item1}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave1-edu-item2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave1-edu-item3}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave1-edu-item4}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave1-edu-item5}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave1-edu-item6}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave1-edu-item7}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave1-edu-item8}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave1-edu-item9}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_9"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-green-wave2-overall}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9),
  title = "",
  questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"),
  question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave2-age-item1}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave2-age-item2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave2-age-item3}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave2-age-item4}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave2-age-item5}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave2-age-item6}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave2-age-item7}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave2-age-item8}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave2-age-item9}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave2-gender-item1}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave2-gender-item2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave2-gender-item3}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave2-gender-item4}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave2-gender-item5}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave2-gender-item6}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave2-gender-item7}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave2-gender-item8}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave2-gender-item9}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-wave2-edu-item1}
# Clean mailbox
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_1),
  title = "Clean mailbox",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-wave2-edu-item2}
# Use sustainable search engines
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_2),
  title = "Use sustainable search engines",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-wave2-edu-item3}
# Avoid unnecessary Cloud storage
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_3),
  title = "Avoid unnecessary Cloud storage",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-wave2-edu-item4}
# Turn down screen brightness
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_4),
  title = "Turn down screen brightness",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-wave2-edu-item5}
# Use sleep mode
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_5),
  title = "Use sleep mode",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-wave2-edu-item6}
# Close unused phone apps
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_6),
  title = "Close unused phone apps",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-wave2-edu-item7}
# Recycle devices
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_7),
  title = "Recycle devices",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-wave2-edu-item8}
# Repair before replacing
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_8),
  title = "Repair before replacing",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-wave2-edu-item9}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_9),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PSGDS1_9"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-overall-item1}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-overall-item2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-overall-item3}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-overall-item4}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-overall-item5}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-overall-item6}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-overall-item7}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-overall-item8}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8"
)

result
```


###### item9


```{r perf-green-overtime-overall-item9}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-age-item1}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-age-item2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-age-item3}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-age-item4}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-age-item5}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-age-item6}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-age-item7}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-age-item8}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8",
  group_var = "AgeGroup"
)

result
```


###### item9


```{r perf-green-overtime-age-item9}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-gender-item1}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-gender-item2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-gender-item3}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-gender-item4}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-gender-item5}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-gender-item6}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-gender-item7}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-gender-item8}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8",
  group_var = "geslacht"
)

result
```


###### item9


```{r perf-green-overtime-gender-item9}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-green-overtime-edu-item1}
# Clean mailbox
result <- create_timeline(
  data = data,
  title = "Clean mailbox",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-green-overtime-edu-item2}
# Use sustainable search engines
result <- create_timeline(
  data = data,
  title = "Use sustainable search engines",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-green-overtime-edu-item3}
# Avoid unnecessary Cloud storage
result <- create_timeline(
  data = data,
  title = "Avoid unnecessary Cloud storage",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_3",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-green-overtime-edu-item4}
# Turn down screen brightness
result <- create_timeline(
  data = data,
  title = "Turn down screen brightness",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_4",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-green-overtime-edu-item5}
# Use sleep mode
result <- create_timeline(
  data = data,
  title = "Use sleep mode",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_5",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-green-overtime-edu-item6}
# Close unused phone apps
result <- create_timeline(
  data = data,
  title = "Close unused phone apps",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_6",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-green-overtime-edu-item7}
# Recycle devices
result <- create_timeline(
  data = data,
  title = "Recycle devices",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_7",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-green-overtime-edu-item8}
# Repair before replacing
result <- create_timeline(
  data = data,
  title = "Repair before replacing",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_8",
  group_var = "Education"
)

result
```


###### item9


```{r perf-green-overtime-edu-item9}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PSGDS1_9",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph lightbulb-fill >}} Digital Problem Solving


**Digital Problem Solving** measures the ability to find help and solutions for digital challenges: knowing where to get help to improve digital skills and who to turn to when facing technical difficulties.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("Performance tasks: proportion correct or selected. Where items are multi-select, we show the share selecting each action.", preset = "question")
```
[{{< iconify ph cards >}} See all Digital Problem Solving results](digital_problem_solving.html)


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-ps-wave1-overall}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(SourceHelp_1, SourceHelp_2, SourceHelp_3, SourceHelp_4, SourceHelp_5, SourceHelp_6, SourceHelp_7, SourceHelp_8, SourceHelp_9),
  title = "",
  questions = c("SourceHelp_1", "SourceHelp_2", "SourceHelp_3", "SourceHelp_4", "SourceHelp_5", "SourceHelp_6", "SourceHelp_7", "SourceHelp_8", "SourceHelp_9"),
  question_labels = c("I don't need help", "I don't know anyone", "Family", "Friends", "Colleagues/classmates", "Neighbors/acquaintances", "Help desk", "Library", "Telecom/online helpdesk"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-wave1-age-item1}
# I don't need help
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_1),
  title = "I don't need help",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-wave1-age-item2}
# I don't know anyone
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_2),
  title = "I don't know anyone",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-wave1-age-item3}
# Family
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_3),
  title = "Family",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-wave1-age-item4}
# Friends
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_4),
  title = "Friends",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-wave1-age-item5}
# Colleagues/classmates
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_5),
  title = "Colleagues/classmates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-wave1-age-item6}
# Neighbors/acquaintances
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_6),
  title = "Neighbors/acquaintances",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-wave1-age-item7}
# Help desk
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_7),
  title = "Help desk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-wave1-age-item8}
# Library
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_8),
  title = "Library",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_8"
)

result
```


###### item9


```{r perf-ps-wave1-age-item9}
# Telecom/online helpdesk
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SourceHelp_9),
  title = "Telecom/online helpdesk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_9"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-wave1-gender-item1}
# I don't need help
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_1),
  title = "I don't need help",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-wave1-gender-item2}
# I don't know anyone
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_2),
  title = "I don't know anyone",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-wave1-gender-item3}
# Family
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_3),
  title = "Family",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-wave1-gender-item4}
# Friends
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_4),
  title = "Friends",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-wave1-gender-item5}
# Colleagues/classmates
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_5),
  title = "Colleagues/classmates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-wave1-gender-item6}
# Neighbors/acquaintances
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_6),
  title = "Neighbors/acquaintances",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-wave1-gender-item7}
# Help desk
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_7),
  title = "Help desk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-wave1-gender-item8}
# Library
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_8),
  title = "Library",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_8"
)

result
```


###### item9


```{r perf-ps-wave1-gender-item9}
# Telecom/online helpdesk
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SourceHelp_9),
  title = "Telecom/online helpdesk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_9"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-wave1-edu-item1}
# I don't need help
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_1),
  title = "I don't need help",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-wave1-edu-item2}
# I don't know anyone
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_2),
  title = "I don't know anyone",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-wave1-edu-item3}
# Family
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_3),
  title = "Family",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-wave1-edu-item4}
# Friends
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_4),
  title = "Friends",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-wave1-edu-item5}
# Colleagues/classmates
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_5),
  title = "Colleagues/classmates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-wave1-edu-item6}
# Neighbors/acquaintances
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_6),
  title = "Neighbors/acquaintances",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-wave1-edu-item7}
# Help desk
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_7),
  title = "Help desk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-wave1-edu-item8}
# Library
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_8),
  title = "Library",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_8"
)

result
```


###### item9


```{r perf-ps-wave1-edu-item9}
# Telecom/online helpdesk
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SourceHelp_9),
  title = "Telecom/online helpdesk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_9"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-ps-wave2-overall}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(SourceHelp_1, SourceHelp_2, SourceHelp_3, SourceHelp_4, SourceHelp_5, SourceHelp_6, SourceHelp_7, SourceHelp_8, SourceHelp_9),
  title = "",
  questions = c("SourceHelp_1", "SourceHelp_2", "SourceHelp_3", "SourceHelp_4", "SourceHelp_5", "SourceHelp_6", "SourceHelp_7", "SourceHelp_8", "SourceHelp_9"),
  question_labels = c("I don't need help", "I don't know anyone", "Family", "Friends", "Colleagues/classmates", "Neighbors/acquaintances", "Help desk", "Library", "Telecom/online helpdesk"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-wave2-age-item1}
# I don't need help
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_1),
  title = "I don't need help",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-wave2-age-item2}
# I don't know anyone
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_2),
  title = "I don't know anyone",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-wave2-age-item3}
# Family
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_3),
  title = "Family",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-wave2-age-item4}
# Friends
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_4),
  title = "Friends",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-wave2-age-item5}
# Colleagues/classmates
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_5),
  title = "Colleagues/classmates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-wave2-age-item6}
# Neighbors/acquaintances
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_6),
  title = "Neighbors/acquaintances",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-wave2-age-item7}
# Help desk
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_7),
  title = "Help desk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-wave2-age-item8}
# Library
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_8),
  title = "Library",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_8"
)

result
```


###### item9


```{r perf-ps-wave2-age-item9}
# Telecom/online helpdesk
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SourceHelp_9),
  title = "Telecom/online helpdesk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SourceHelp_9"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-wave2-gender-item1}
# I don't need help
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_1),
  title = "I don't need help",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-wave2-gender-item2}
# I don't know anyone
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_2),
  title = "I don't know anyone",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-wave2-gender-item3}
# Family
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_3),
  title = "Family",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-wave2-gender-item4}
# Friends
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_4),
  title = "Friends",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-wave2-gender-item5}
# Colleagues/classmates
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_5),
  title = "Colleagues/classmates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-wave2-gender-item6}
# Neighbors/acquaintances
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_6),
  title = "Neighbors/acquaintances",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-wave2-gender-item7}
# Help desk
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_7),
  title = "Help desk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-wave2-gender-item8}
# Library
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_8),
  title = "Library",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_8"
)

result
```


###### item9


```{r perf-ps-wave2-gender-item9}
# Telecom/online helpdesk
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SourceHelp_9),
  title = "Telecom/online helpdesk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SourceHelp_9"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-wave2-edu-item1}
# I don't need help
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_1),
  title = "I don't need help",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-wave2-edu-item2}
# I don't know anyone
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_2),
  title = "I don't know anyone",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-wave2-edu-item3}
# Family
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_3),
  title = "Family",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-wave2-edu-item4}
# Friends
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_4),
  title = "Friends",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-wave2-edu-item5}
# Colleagues/classmates
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_5),
  title = "Colleagues/classmates",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-wave2-edu-item6}
# Neighbors/acquaintances
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_6),
  title = "Neighbors/acquaintances",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-wave2-edu-item7}
# Help desk
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_7),
  title = "Help desk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-wave2-edu-item8}
# Library
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_8),
  title = "Library",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_8"
)

result
```


###### item9


```{r perf-ps-wave2-edu-item9}
# Telecom/online helpdesk
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SourceHelp_9),
  title = "Telecom/online helpdesk",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SourceHelp_9"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-overtime-overall-item1}
# I don't need help
result <- create_timeline(
  data = data,
  title = "I don't need help",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-overtime-overall-item2}
# I don't know anyone
result <- create_timeline(
  data = data,
  title = "I don't know anyone",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-overtime-overall-item3}
# Family
result <- create_timeline(
  data = data,
  title = "Family",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-overtime-overall-item4}
# Friends
result <- create_timeline(
  data = data,
  title = "Friends",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-overtime-overall-item5}
# Colleagues/classmates
result <- create_timeline(
  data = data,
  title = "Colleagues/classmates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-overtime-overall-item6}
# Neighbors/acquaintances
result <- create_timeline(
  data = data,
  title = "Neighbors/acquaintances",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-overtime-overall-item7}
# Help desk
result <- create_timeline(
  data = data,
  title = "Help desk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_7"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-overtime-overall-item8}
# Library
result <- create_timeline(
  data = data,
  title = "Library",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_8"
)

result
```


###### item9


```{r perf-ps-overtime-overall-item9}
# Telecom/online helpdesk
result <- create_timeline(
  data = data,
  title = "Telecom/online helpdesk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_9"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-overtime-age-item1}
# I don't need help
result <- create_timeline(
  data = data,
  title = "I don't need help",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-overtime-age-item2}
# I don't know anyone
result <- create_timeline(
  data = data,
  title = "I don't know anyone",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-overtime-age-item3}
# Family
result <- create_timeline(
  data = data,
  title = "Family",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_3",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-overtime-age-item4}
# Friends
result <- create_timeline(
  data = data,
  title = "Friends",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_4",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-overtime-age-item5}
# Colleagues/classmates
result <- create_timeline(
  data = data,
  title = "Colleagues/classmates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_5",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-overtime-age-item6}
# Neighbors/acquaintances
result <- create_timeline(
  data = data,
  title = "Neighbors/acquaintances",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_6",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-overtime-age-item7}
# Help desk
result <- create_timeline(
  data = data,
  title = "Help desk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_7",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-overtime-age-item8}
# Library
result <- create_timeline(
  data = data,
  title = "Library",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_8",
  group_var = "AgeGroup"
)

result
```


###### item9


```{r perf-ps-overtime-age-item9}
# Telecom/online helpdesk
result <- create_timeline(
  data = data,
  title = "Telecom/online helpdesk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_9",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-overtime-gender-item1}
# I don't need help
result <- create_timeline(
  data = data,
  title = "I don't need help",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-overtime-gender-item2}
# I don't know anyone
result <- create_timeline(
  data = data,
  title = "I don't know anyone",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-overtime-gender-item3}
# Family
result <- create_timeline(
  data = data,
  title = "Family",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_3",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-overtime-gender-item4}
# Friends
result <- create_timeline(
  data = data,
  title = "Friends",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_4",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-overtime-gender-item5}
# Colleagues/classmates
result <- create_timeline(
  data = data,
  title = "Colleagues/classmates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_5",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-overtime-gender-item6}
# Neighbors/acquaintances
result <- create_timeline(
  data = data,
  title = "Neighbors/acquaintances",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_6",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-overtime-gender-item7}
# Help desk
result <- create_timeline(
  data = data,
  title = "Help desk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_7",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-overtime-gender-item8}
# Library
result <- create_timeline(
  data = data,
  title = "Library",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_8",
  group_var = "geslacht"
)

result
```


###### item9


```{r perf-ps-overtime-gender-item9}
# Telecom/online helpdesk
result <- create_timeline(
  data = data,
  title = "Telecom/online helpdesk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_9",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-ps-overtime-edu-item1}
# I don't need help
result <- create_timeline(
  data = data,
  title = "I don't need help",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-ps-overtime-edu-item2}
# I don't know anyone
result <- create_timeline(
  data = data,
  title = "I don't know anyone",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-ps-overtime-edu-item3}
# Family
result <- create_timeline(
  data = data,
  title = "Family",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_3",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-ps-overtime-edu-item4}
# Friends
result <- create_timeline(
  data = data,
  title = "Friends",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_4",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-ps-overtime-edu-item5}
# Colleagues/classmates
result <- create_timeline(
  data = data,
  title = "Colleagues/classmates",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_5",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-ps-overtime-edu-item6}
# Neighbors/acquaintances
result <- create_timeline(
  data = data,
  title = "Neighbors/acquaintances",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_6",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-ps-overtime-edu-item7}
# Help desk
result <- create_timeline(
  data = data,
  title = "Help desk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_7",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 8


```{r perf-ps-overtime-edu-item8}
# Library
result <- create_timeline(
  data = data,
  title = "Library",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_8",
  group_var = "Education"
)

result
```


###### item9


```{r perf-ps-overtime-edu-item9}
# Telecom/online helpdesk
result <- create_timeline(
  data = data,
  title = "Telecom/online helpdesk",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "SourceHelp_9",
  group_var = "Education"
)

result
```


:::


:::


:::



```{=html}
<nav class='pagination-nav pagination-bottom' role='navigation' aria-label='Page navigation'>
  <div class='pagination-container'>
    <a href='performance.html' class='pagination-btn pagination-prev' aria-label='Previous page'>
      <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'>
        <path d='M12 16L6 10L12 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/>
      </svg>
    </a>
    <div class='pagination-info'>
      <span class='pagination-prefix'></span>
      <input type='number' class='pagination-input' id='page-input-bottom' min='1' max='3' value='2' aria-label='Current page'>
      <span class='pagination-separator'> / 3</span>
    </div>
    <a href='performance_p3.html' class='pagination-btn pagination-next' aria-label='Next page'>
      <svg class='pagination-icon' width='18' height='18' viewBox='0 0 20 20' fill='none' xmlns='http://www.w3.org/2000/svg'>
        <path d='M8 16L14 10L8 4' stroke='currentColor' stroke-width='2' stroke-linecap='round' stroke-linejoin='round'/>
      </svg>
    </a>
  </div>
</nav>

<!-- Pagination Navigation Script -->
<script>
(function() {
  const pageUrls = ["performance.html","performance_p2.html","performance_p3.html"];
  const pageInput = document.getElementById('page-input-bottom');
  
  if (pageInput) {
    pageInput.addEventListener('change', function() {
      const pageNum = parseInt(this.value);
      if (pageNum >= 1 && pageNum <= pageUrls.length) {
        window.location.href = pageUrls[pageNum - 1];
      } else {
        this.value = this.getAttribute('value');
      }
    });
    
    pageInput.addEventListener('keypress', function(e) {
      if (e.key === 'Enter') {
        this.blur();
      }
    });
  }
})();
</script>
```
 

© 2025 Digital Competence Insights Dashboard - All Rights Reserved